Requires the CodeAChrome.DLL to run. You can find all files in the zipped archive of this issue.
'** Eddie - an LB Code Editor
'version 7
'added codeachrome control
'removed graphicbox for linenumbers
'removed texteditor
'replaced texteditor commands with codeachrome commands
'added edit menu, since LB no longer supplies one
'note that line numbers are 0-indexed. The first line is numbered 0.
'******************************************************
'CodeAChrome is copyright Alyce Watson, 2005.
'******************************************************
'CodeAChrome is free for commercial and non-commercial use.
'A credit to the author and a link to the website must be
'included in your program's documentation or readme file,
'and in any source code released to the public.
'Alyce Watson
'http://alycesrestaurant.com/
'******************************************************
'Use this DLL at your own risk. The author bears no responsibility
'for errors that may occur as the result of its use.
'******************************************************
'You may not reverse-engineer this DLL.
'You may not claim it as your own work.
'******************************************************
if val(Version$)<4.02 then
notice "For Liberty BASIC v4.02 and higher."
end
end if
[VariableSetup]
'#f will be the handle for opening files
'note that Version$ is a reserved variable name
EddieVersion$ = "7"
LibertyExe$ = "" 'path to Liberty.exe for running programs:
Freeform$ = "" 'path to Freeform
Runtime$ = "" 'path to runtime engine, run402.exe
Help$ = "" 'path to LB help
IniFile$ = "eddie7.ini" 'name of ini file for this version of Eddie
Curdir$ = DefaultDir$
text$ = "" 'variable to hold contents of texteditor
tempfile$ = DefaultDir$ + "\tempfile.bas" 'filename for writing a temp file to disk
savefile$ = "" 'filename for user saving file to disk
dim branch$(1000) 'array to hold branch labels
branch$(1) = "" 'first designation takes you to top of code
gosub [readIniFile]
[WindowSetup]
NOMAINWIN
WindowWidth = 600 : WindowHeight = 360
UpperLeftX = INT((DisplayWidth-WindowWidth)/2)
UpperLeftY = INT((DisplayHeight-WindowHeight)/2)
[ControlSetup]
'menus
Menu #1, "&File", "&New", [new], "&Open", [open], "&Save", [save],_
|,"&Print", [print], "E&xit", [quit]
Menu #1, "&Edit", "&Undo",[undo],"Cu&t",[cut],"&Copy",[copy],"&Paste",[paste],|,_
"&Select All",[selectall]
Menu #1, "&Run","R&un", [run]
Menu #1, "&Tools", "&Go to Line", [gotoLine], "&Freeform", [freeform]
Menu #1, "&Help", "He&lp", [help], "&About", [about]
'buttons for a toolbar lookalike
button #1.new, "New",[new],UL, 0, 0, 45, 20
button #1.open, "Open",[open],UL, 45, 0, 45, 20
button #1.save, "Save",[save],UL, 90, 0, 45, 20
button #1.print, "Print",[print],UL, 135, 0, 45, 20
button #1.cut, "Cut",[cut],UL, 190, 0, 45, 20
button #1.copy, "Copy",[copy],UL, 235, 0, 45, 20
button #1.paste, "Paste",[paste],UL, 280, 0, 45, 20
button #1.run, "Run",[run],UL, 335, 0, 45, 20
button #1.help, "Help",[help],UL, 380, 0, 45, 20
stylebits #1.c, 0,_CBS_AUTOHSCROLL,0,0
combobox #1.c, branch$(),[chooseBranch],40,22,385,300
Open "Eddie - an LB Code Editor v." + EddieVersion$ for Window as #1
'trap the close event, if the user closes the
'window with the X button
#1 "trapclose [quit]"
#1 "resizehandler [resize]"
'set the font for the window and controls
#1 "font ms_sans_serif 10"
'select item in combobox
#1.c "selectindex 1"
open "CodeAChrome.dll" for dll as #r
hMain = hwnd(#1) 'handle of program window
calldll #r, "CreateCodeAChrome",_ 'code editing component
hMain as long,_ 'handle of program window
0 as long,_ 'x location of control
52 as long,_ 'y location of control
545 as long,_ 'width of control
250 as long,_ 'height of control
ret as long 'nonzero=success
if ret=0 then
notice "Error loading CodeAChrome. Program ended."
goto [quit]
end if
'activate resizehandler
calldll #user32, "MoveWindow",_
hMain as ulong, _ 'window handle
UpperLeftX as long,_ 'x location of window
UpperLeftY as long,_ 'y location of window
730 as long,_ 'desired width of window
590 as long,_ 'desired height of window
1 as boolean, ret as long
wait
[loop] Wait
[quit]
gosub [writeIniFile]
calldll #r, "DestroyCodeAChrome", ret as void
close #r : close #1 : END
[new]
calldll #r, "DoNew",_ 'clear control
re as void
Wait
[open]
filedialog "Open",Curdir$ + "\*.bas",openfile$
if openfile$="" then wait
Curdir$ = SeparatePath$(openfile$)
calldll #r, "FileLoad",_ 'load file into codeachrome
openfile$ as ptr,_ 'name of file
re as void 'no return
gosub [fillBranch]
Wait
[save]
filedialog "Save As",Curdir$ + "\*.bas",savefile$
if savefile$="" then wait
'make sure that user had given the file a *bas extension
if right$(lower$(savefile$),4)<>".bas" then
savefile$=savefile$+".bas"
end if
Curdir$ = SeparatePath$(savefile$)
calldll #r, "FileSave",_ 'save contents to disk
file$ as ptr,_ 'save filename
re as void
Wait
[print]
calldll #r, "DoPrint",_ 'print contents of control
re as void
Wait
[help]
if Help$ = "" then gosub [FindHelpPath]
if Help$ = "" then wait
run "winhlp32 " + chr$(34) + Help$ + chr$(34)
Wait
[about]
notice "CodeAChrome code editing component is copyrighted by Alyce Watson, 2005."
Wait
[undo]
calldll #r, "EditUndo",_ 'undo last operation
re as void
wait
[cut]
calldll #r, "EditCutText",_ 'cut selected text to clipboard
re as void
wait
[copy]
calldll #r, "EditCopyText",_ 'copy selected text to clipboard
re as void
wait
[paste]
calldll #r, "EditPasteText",_ 'paste contents of clipboard at cursor
re as void
wait
[selectall]
calldll #r, "EditSelectAll",_ 'select all text in control
re as void
wait
[run]
if LibertyExe$ = "" then gosub [GetLibertyPath]
'if we can't find the path to Liberty BASIC
'we must abort the RUN operation
if LibertyExe$="" then wait
calldll #r, "FileSave",_ 'save contents to disk
tempfile$ as ptr,_ 'save filename
re as void
RUN LibertyExe$ + " " + chr$(34) + tempfile$ + chr$(34)
wait
[freeform]
if Freeform$ = "" then gosub [GetFreeformPath]
if Freeform$ = "" then wait
if Runtime$ = "" then gosub [GetRuntimePath]
if Runtime$="" then wait
run Runtime$ + " " + chr$(34) + Freeform$ + chr$(34)
wait
[GetLibertyPath]
filedialog "Find Liberty.exe",Curdir$ + "\*liberty*.exe",LibertyExe$
if LibertyExe$="" then
notice "Liberty.exe not found."
else
Curdir$ = SeparatePath$(LibertyExe$)
end if
RETURN
[GetRuntimePath]
filedialog "Find runtime engine",Curdir$ + "\*run*.exe",Runtime$
if Runtime$="" then
notice "Runtime engine not found."
else
Curdir$ = SeparatePath$(Runtime$)
end if
RETURN
[GetFreeformPath]
filedialog "Find Freeform",Curdir$ + "\*.tkn",Freeform$
if Freeform$="" then
notice "Freeform not found."
else
Curdir$ = SeparatePath$(Freeform$)
end if
RETURN
[GetHelpPath]
filedialog "Find Help",Curdir$ + "\*.hlp",Help$
if Help$="" then
notice "Help not found."
else
Curdir$ = SeparatePath$(Help$)
end if
RETURN
[readIniFile]
open IniFile$ for append as #f
lenFile = LOF(#f)
close #f
'if the length = 0, the file didn't exist, so get info from user
if lenFile=0 then
notice "To use Eddie successfully, you must set the path to Liberty.exe, Freeform, the runtime engine and the helpfile."
gosub [GetLibertyPath]
gosub [GetFreeformPath]
gosub [GetRuntimePath]
gosub [GetHelpPath]
else
'if the length is greater than 0, the file exists
'open it for input and read the first line into LibertyExe$
open IniFile$ for input as #f
line input #f, LibertyExe$
'read second line into Freeform$, only if end of file not reached
if eof(#f) = 0 then line input #f, Freeform$
'read third line into Runtime$, only if end of file not reached
if eof(#f) = 0 then line input #f, Runtime$
'read fourth line into Help$, only if end of file not reached
if eof(#f) = 0 then line input #f, Help$
close #f
end if
RETURN
[writeIniFile]
open IniFile$ for output as #f
print #f, LibertyExe$
print #f, Freeform$
print #f, Runtime$
print #f, Help$
close #f
RETURN
[fillBranch]
calldll #r, "GetNumberOfLines",_
rowcount as long 'returns number of lines, 0-indexed
rowcount = rowcount - 1 'because lines begin at 0
REDIM branch$(rowcount)
branch$(1)="" + space$(300) + "1"
'fill combobox with labels, functions and sub definitions
'pad with 300 spaces, then add line number
bx=2
For i=0 to rowcount
calldll #r, "GetLineTextLength",_ 'retrieve length of text in line
i as long,_ 'index of line
length as long 'returns length
line$ = space$(length + 1) 'create buffer to receive text
calldll #r, "GetLineText",_
i as long,_ 'index of line to retrieve
line$ as ptr,_ 'buffer for text
ret as void
If Left$(Trim$(line$),1)="[" Then
branch$(bx)=Trim$(line$) + space$(300) + str$(i)
bx=bx+1
End If
If Lower$(Word$(line$,1))="function" Then
branch$(bx)=Trim$(line$) + space$(300) + str$(i)
bx=bx+1
End If
If Lower$(Word$(line$,1))="sub" Then
branch$(bx)=Trim$(line$) + space$(300) + str$(i)
bx=bx+1
End If
Next
#1.c "reload"
#1.c "selectindex 1";
return
[chooseBranch]
'** CHOOSE BRANCH, SET EDITOR TO THAT POSITION
#1.c "selection? branchselect$"
'get the text at the end of the item
ln$ = right$(branchselect$, 6)
'get value of text, which will = linenumber
linenumber = val(ln$)
'now scroll texteditor so that line is at top
calldll #r, "SetTopLine",_ 'scroll this line to top
linenumber as long,_ 'index of line
re as void 'no return
Wait
[gotoLine]
calldll #r, "GetNumberOfLines",_
rowcount as long 'returns number of lines, 0-indexed
gotoLine=rowcount-1
msg$="Go to line? Max is ";gotoLine
prompt msg$;gotoLine
if gotoLine>rowcount-1 then gotoLine=rowcount
if gotoLine<0 then gotoLine=0
calldll #r, "SetTopLine",_ 'scroll this line to top
gotoLine as long,_ 'index of line
re as void 'no return
wait
Function SeparatePath$(f$)
fileindex=Len(f$)
filelength=Len(f$)
While Mid$(f$, fileindex,1)<>"\"
fileindex=fileindex-1
Wend
SeparatePath$=Left$(f$,fileindex)
End Function
[resize]
ww=WindowWidth : wh=WindowHeight-52
calldll #r, "MoveCodeAChrome",_ 'move/resize the control
0 as long,_ 'new x location
52 as long,_ 'new y location
ww as long,_ 'new width
wh as long,_ 'new height
re as void
#1 "refresh"
wait